' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2024.03.21 at 21:18 (Coordinated Universal Time)
' Program by Charlie Veniot
' Demonstrating how to draw an irregular shape with the help of DRAW for positioning

' 🔶 Image one to show the general approach for drawing a flat conical tent

SCREEN _NEWIMAGE(121,181,12) 

  DRAW "B M 60,120"
  DRAW "C14 L59"
  SLEEP 0.75
  XPOINT% = POINT(0)
  YPOINT% = POINT(1)
  FOR a# = 360 TO 180 STEP -20
  DRAW "B M 60,120"
  DRAW "C15 TA" + a# + " U50"
  SLEEP 0.75
  DRAW "C10 M" + xpoint% + "," + ypoint%
  SLEEP 0.75
  NEXT a#
  
PRINT "CLICK/TOUCH" : PRINT "THE SCREEN" : PRINT "TO CONTINUE"
SLEEP
CLS

' 🔶 The conical tent, rotating around an off-center axis

SCREEN _NEWIMAGE(321,381,12) 
COLOR 14
r# = 360

DO
  CIRCLE (160,220),7
  DRAW "C14"
  DRAW "B M 160,220"
  DRAW "B TA" + r# + " L159"
  XPOINT% = POINT(0)
  YPOINT% = POINT(1)
  FOR a# = (320 + r#) TO (220 + r#) STEP -0.025
    DRAW "B M 160,220"
    DRAW "B TA" + a# + " U150"
    PSET (point(0),point(1))
    IF (a# - r# = 320) THEN DRAW "M" + xpoint% + "," + ypoint%
  NEXT a#
  DRAW "M" + xpoint% + "," + ypoint%
  SLEEP 0.05
  CLS
  r# = r# - 1 : IF r# = -1 THEN r# = 360
LOOP